home *** CD-ROM | disk | FTP | other *** search
/ Complete Internet Archive / Complete Internet Archive.iso / VRML / cp2b2x.exe / DATA.Z / radio.tcl < prev    next >
Text File  |  1996-04-23  |  2KB  |  41 lines
  1. # radio.tcl --
  2. #
  3. # This demonstration script creates a toplevel window containing
  4. # several radiobutton widgets.
  5. #
  6. # @(#) radio.tcl 1.2 95/06/15 13:01:37
  7.  
  8. set w .radio
  9. catch {destroy $w}
  10. toplevel $w
  11. wm title $w "Radiobutton Demonstration"
  12. wm iconname $w "radio"
  13. positionWindow $w
  14. label $w.msg -font $font -wraplength 5i -justify left -text "Two groups of radiobuttons are displayed below.  If you click on a button then the button will become selected exclusively among all the buttons in its group.  A Tcl variable is associated with each group to indicate which of the group's buttons is selected.  Click the \"See Variables\" button to see the current values of the variables."
  15. pack $w.msg -side top
  16.  
  17. frame $w.buttons
  18. pack  $w.buttons -side bottom -expand y -fill x -pady 2m
  19. button $w.buttons.dismiss -text Dismiss -command "destroy $w"
  20. button $w.buttons.code -text "See Code" -command "showCode $w"
  21. button $w.buttons.vars -text "See Variables"  \
  22.     -command "showVars $w.dialog size color"
  23. pack $w.buttons.dismiss $w.buttons.code $w.buttons.vars -side left -expand 1
  24.  
  25. frame $w.left
  26. frame $w.right
  27. pack $w.left $w.right -side left -expand yes  -pady .5c -padx .5c
  28.  
  29. foreach i {10 12 18 24} {
  30.     radiobutton $w.left.b$i -text "Point Size $i" -variable size \
  31.         -relief flat -value $i
  32.     pack $w.left.b$i  -side top -pady 2 -anchor w
  33. }
  34.  
  35. foreach color {Red Green Blue Yellow Orange Purple} {
  36.     set lower [string tolower $color]
  37.     radiobutton $w.right.$lower -text $color -variable color \
  38.         -relief flat -value $lower
  39.     pack $w.right.$lower -side top -pady 2 -anchor w
  40. }
  41.